﻿Imports Mysoft.Map.Application.Controls
Imports Mysoft.Map.Application.Types
Imports System.Xml
Imports Mysoft.Map.Data
Imports System.Data

Partial Class Xmxx_ZxPlanSet_Edit
    Inherits Mysoft.Map.Application.Security.AppPage

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' 在此处放置初始化页的用户代码()
        Dim strTitle As String
        If Request.QueryString("mode") = "1" Then
            strTitle = "新增"

        ElseIf Request.QueryString("mode") = "2" Then
            strTitle = "修改"
        Else
            strTitle = "查看"
        End If
        mytitle.InnerText = strTitle & "专项计划"

        'ZxPlanSetGUID,PlanCode,PlanName,BeginDate,EndDate,BzDeptGUID,Remarks
        If Not Page.IsPostBack Then
            Dim strProjGuid, strFuncid As String
            Dim strZxjhGuid As String
            strProjGuid = Request.QueryString("projguid")
            strFuncid = Request.QueryString("funcid")

            If Me.State = PageState.Add Then
                strZxjhGuid = Guid.NewGuid.ToString '生成一个新的GUID
                appForm.DefaultValueXml = "<xml>" & _
                "<ProjGUID defaultvalue='" + strProjGuid + "'></ProjGUID>" & _
                "<BUGUID defaultvalue='" + Session("BUGUID") + "'></BUGUID>" & _
                "<ZxPlanSetGUID defaultvalue='" + strZxjhGuid + "'></ZxPlanSetGUID>" & _
                "</xml>"
            End If
        End If
    End Sub

    Protected Overrides Sub ConfigureForm()
        appForm.Execute()
    End Sub


End Class
